R Notebook

tuesdata <- tidytuesdayR::tt_load('2021-08-31')

--- Compiling #TidyTuesday Information for 2021-08-31 ----
--- There is 1 file available ---
--- Starting Download ---

    Downloading file 1 of 1: `bird_baths.csv`

--- Download complete ---

tuesdata <- tidytuesdayR::tt_load(2021, week = 36)

--- Compiling #TidyTuesday Information for 2021-08-31 ----
--- There is 1 file available ---
--- Starting Download ---

    Downloading file 1 of 1: `bird_baths.csv`

--- Download complete ---

bird_baths <- tuesdata$bird_baths

library(plotly)
library(tidyverse)

df <- na.omit(bird_baths)

urbanrural <- df %>%
  group_by(survey_year, urban_rural) %>%
  summarise(count = n()) %>%
  spread(urban_rural, count)

`summarise()` has grouped output by 'survey_year'. You can override using the `.groups` argument.

urbanrural$survey_year <- as.factor(urbanrural$survey_year)

fig <- plot_ly(urbanrural, x = ~Rural, y = ~survey_year, type = 'bar', orientation = 'h', name = 'Rural',
        marker = list(color = 'rgba(42, 157, 143, 0.6)',
                      line = list(color = 'rgba(42, 157, 143, 1.0)', width = 3)))

fig <- fig %>% add_trace(x = ~Urban, name = 'Urban',
            marker = list(color = 'rgba(233, 196, 106, 0.6)',
                          line = list(color = 'rgba(233, 196, 106, 1.0)', width = 3)))

fig <- fig %>% layout(barmode = 'stack',
         xaxis = list(title = "Birds sighted"),
         yaxis = list(title ="Survey Year"))

fig

NA